home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macrosrc.arc / IVAR.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.1 KB  |  49 lines
  1.  
  2. *DEFINE IVAR VARS (AFTER INTR MACRO ONLY)
  3. *
  4. *      IVAR VAR-LIST
  5. *
  6. *      VAR-LIST:=VAR-ITEM|VAR-ITEM,VAR-LIST
  7. *      VAR-ITEM:=VAR|(VAR,SIZE)
  8. *      VAR IS VARIABLE SYMBOL
  9. *      SIZE IS NUMBER OF WORDS TO ALLOCATE
  10.  
  11. IVAR   $MACRO  A1,A2,A3,A4,A5,A6,A7,A8
  12.        $VAR Q,P
  13.        $ASG '$$IPRC' TO P.S
  14.        $ASG '''' TO Q.S
  15.        CSEG :Q::P.SS:$C:Q: PAGE 1 INTR SEG
  16.        $IF     A1.L#=0
  17.        $IVR3   :A1:
  18.        $ENDIF
  19.        $IF     A2.L#=0
  20.        $IVR3   :A2:
  21.        $ENDIF
  22.        $IF     A3.L#=0
  23.        $IVR3   :A3:
  24.        $ENDIF
  25.        $IF     A4.L#=0
  26.        $IVR3   :A4:
  27.        $ENDIF
  28.        $IF     A5.L#=0
  29.        $IVR3   :A5:
  30.        $ENDIF
  31.        $IF     A6.L#=0
  32.        $IVR3   :A6:
  33.        $ENDIF
  34.        $IF     A7.L#=0
  35.        $IVR3   :A7:
  36.        $ENDIF
  37.        CEND              END OF DATA
  38.        $IF     A8.L#=0
  39.        IVAR    :A8:
  40.        $ENDIF
  41.        $END
  42.  
  43. $IVR3  $MACRO   A,B
  44.        $IF  B.L#=0
  45. :A:    BSS  :B:          :B: WORDS NAME :A:
  46.        $ELSE
  47. :A:    BSS  1            1 WORD NAMED :A:
  48.        $ENDIF
  49.        $END